Skip to content

Make the code compatible with the Free Pascal compiler and cross plat… #3

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
dtoffe wants to merge 1 commit into
base: master
Choose a base branch
from
Open

Make the code compatible with the Free Pascal compiler and cross plat… #3

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
4 changes: 4 additions & 0 deletions LLVM.Imports.AggressiveInstCombine.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,5 +1,9 @@
unit LLVM.Imports.AggressiveInstCombine;

{$IFDEF FPC}
{$MODE Delphi}
{$ENDIF}

interface
//based on AggressiveInstCombine.h

Expand Down
4 changes: 4 additions & 0 deletions LLVM.Imports.Analysis.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,5 +1,9 @@
unit LLVM.Imports.Analysis;

{$IFDEF FPC}
{$MODE Delphi}
{$ENDIF}

interface

//based on Analysis.h
Expand Down
4 changes: 4 additions & 0 deletions LLVM.Imports.BitReader.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,5 +1,9 @@
unit LLVM.Imports.BitReader;

{$IFDEF FPC}
{$MODE Delphi}
{$ENDIF}

interface

//based on BitReader.h
Expand Down
4 changes: 4 additions & 0 deletions LLVM.Imports.BitWriter.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,5 +1,9 @@
unit LLVM.Imports.BitWriter;

{$IFDEF FPC}
{$MODE Delphi}
{$ENDIF}

interface

//based on BitWriter.h
Expand Down
4 changes: 4 additions & 0 deletions LLVM.Imports.Comdat.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,5 +1,9 @@
unit LLVM.Imports.Comdat;

{$IFDEF FPC}
{$MODE Delphi}
{$ENDIF}

//based on Comdat.h

{$MINENUMSIZE 4}
Expand Down
4 changes: 4 additions & 0 deletions LLVM.Imports.Core.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,5 +1,9 @@
unit LLVM.Imports.Core;

{$IFDEF FPC}
{$MODE Delphi}
{$ENDIF}

interface

//based on Core.h
Expand Down
4 changes: 4 additions & 0 deletions LLVM.Imports.Coroutines.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,5 +1,9 @@
unit LLVM.Imports.Coroutines;

{$IFDEF FPC}
{$MODE Delphi}
{$ENDIF}

//based on Coroutines.h

interface
Expand Down
4 changes: 4 additions & 0 deletions LLVM.Imports.Disassembler.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,5 +1,9 @@
unit LLVM.Imports.Disassembler;

{$IFDEF FPC}
{$MODE Delphi}
{$ENDIF}

interface

//based on Disassembler.h
Expand Down
4 changes: 4 additions & 0 deletions LLVM.Imports.DisassemblerTypes.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,5 +1,9 @@
unit LLVM.Imports.DisassemblerTypes;

{$IFDEF FPC}
{$MODE Delphi}
{$ENDIF}

interface

//based on DisassemblerTypes.h
Expand Down
4 changes: 4 additions & 0 deletions LLVM.Imports.Error.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,5 +1,9 @@
unit LLVM.Imports.Error;

{$IFDEF FPC}
{$MODE Delphi}
{$ENDIF}

//based on Error.h

interface
Expand Down
4 changes: 4 additions & 0 deletions LLVM.Imports.ErrorHandling.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,5 +1,9 @@
unit LLVM.Imports.ErrorHandling;

{$IFDEF FPC}
{$MODE Delphi}
{$ENDIF}

interface

//based on ErrorHandling.h
Expand Down
4 changes: 4 additions & 0 deletions LLVM.Imports.ExecutionEngine.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,5 +1,9 @@
unit LLVM.Imports.ExecutionEngine;

{$IFDEF FPC}
{$MODE Delphi}
{$ENDIF}

interface

//based on ExecutionEngine.h
Expand Down
4 changes: 4 additions & 0 deletions LLVM.Imports.IPO.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,5 +1,9 @@
unit LLVM.Imports.IPO;

{$IFDEF FPC}
{$MODE Delphi}
{$ENDIF}

interface

//based on IPO.h
Expand Down
4 changes: 4 additions & 0 deletions LLVM.Imports.IRReader.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,5 +1,9 @@
unit LLVM.Imports.IRReader;

{$IFDEF FPC}
{$MODE Delphi}
{$ENDIF}

interface

//based on IRReader.h
Expand Down
4 changes: 4 additions & 0 deletions LLVM.Imports.InitFunctions.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,5 +1,9 @@
unit LLVM.Imports.InitFunctions;

{$IFDEF FPC}
{$MODE Delphi}
{$ENDIF}

interface

//based on Initialization.h
Expand Down
4 changes: 4 additions & 0 deletions LLVM.Imports.InstCombine.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,5 +1,9 @@
unit LLVM.Imports.InstCombine;

{$IFDEF FPC}
{$MODE Delphi}
{$ENDIF}

interface
//based on InstCombine.h

Expand Down
4 changes: 4 additions & 0 deletions LLVM.Imports.Linker.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,5 +1,9 @@
unit LLVM.Imports.Linker;

{$IFDEF FPC}
{$MODE Delphi}
{$ENDIF}

interface

//based on Linker.h
Expand Down
4 changes: 4 additions & 0 deletions LLVM.Imports.ObjectFile.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,5 +1,9 @@
unit LLVM.Imports.ObjectFile;

{$IFDEF FPC}
{$MODE Delphi}
{$ENDIF}

interface

//based on Object.h
Expand Down
4 changes: 4 additions & 0 deletions LLVM.Imports.OrcBindings.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,5 +1,9 @@
unit LLVM.Imports.OrcBindings;

{$IFDEF FPC}
{$MODE Delphi}
{$ENDIF}

interface

//based on OrcBindings.h
Expand Down
4 changes: 4 additions & 0 deletions LLVM.Imports.PassManagerBuilder.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,5 +1,9 @@
unit LLVM.Imports.PassManagerBuilder;

{$IFDEF FPC}
{$MODE Delphi}
{$ENDIF}

interface

//based on PassManagerBuilder.h
Expand Down
4 changes: 4 additions & 0 deletions LLVM.Imports.Scalar.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,5 +1,9 @@
unit LLVM.Imports.Scalar;

{$IFDEF FPC}
{$MODE Delphi}
{$ENDIF}

interface

//based on Scalar.h
Expand Down
4 changes: 4 additions & 0 deletions LLVM.Imports.Support.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,5 +1,9 @@
unit LLVM.Imports.Support;

{$IFDEF FPC}
{$MODE Delphi}
{$ENDIF}

interface

//based on Support.h
Expand Down
21 changes: 21 additions & 0 deletions LLVM.Imports.Target.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,5 +1,9 @@
unit LLVM.Imports.Target;

{$IFDEF FPC}
{$MODE Delphi}
{$ENDIF}

interface

//based on Target.h
Expand Down Expand Up @@ -138,8 +142,13 @@ function LLVMOffsetOfElement(TD: TLLVMTargetDataRef; StructTy: TLLVMTypeRef; Ele
implementation

uses
{$IFDEF FPC}
Interfaces, LCLIntf, LCLType, LCLProc,
DynLibs, SysUtils;
{$ELSE}
Windows,
SysUtils;
{$ENDIF}

const
CTargetInfoProc = 'LLVMInitialize%sTargetInfo';
Expand All @@ -154,15 +163,27 @@ implementation

function TryDynCallProc(const AName: string): Boolean;
var
{$IFDEF FPC}
LLib: TLibHandle;
{$ELSE}
LLib: THandle;
{$ENDIF}
LDynProc: TInitProc;
begin
if AName = '' then
Exit(False);
{$IFDEF FPC}
LLib := LoadLibrary(CLLVMLibrary);
{$ELSE}
LLib := GetModuleHandle(CLLVMLibrary);
{$ENDIF}
if LLib <> 0 then
begin
{$IFDEF FPC}
LDynProc := TInitProc(GetProcedureAddress(LLib, PWideChar(AName)));
{$ELSE}
@LDynProc := GetProcAddress(LLib, PWideChar(AName));
{$ENDIF}
if Assigned(LDynProc) then
begin
LDynProc();
Expand Down
4 changes: 4 additions & 0 deletions LLVM.Imports.TargetMachine.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,5 +1,9 @@
unit LLVM.Imports.TargetMachine;

{$IFDEF FPC}
{$MODE Delphi}
{$ENDIF}

interface

//based on TargetMachine.h
Expand Down
4 changes: 4 additions & 0 deletions LLVM.Imports.Types.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,5 +1,9 @@
unit LLVM.Imports.Types;

{$IFDEF FPC}
{$MODE Delphi}
{$ENDIF}

interface

//based on Types.h
Expand Down
4 changes: 4 additions & 0 deletions LLVM.Imports.Utils.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,5 +1,9 @@
unit LLVM.Imports.Utils;

{$IFDEF FPC}
{$MODE Delphi}
{$ENDIF}

Interface
//based on Utils.h

Expand Down
4 changes: 4 additions & 0 deletions LLVM.Imports.Vectorize.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,5 +1,9 @@
unit LLVM.Imports.Vectorize;

{$IFDEF FPC}
{$MODE Delphi}
{$ENDIF}

interface

uses
Expand Down
12 changes: 12 additions & 0 deletions LLVM.Imports.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,10 +1,22 @@
unit LLVM.Imports;

{$IFDEF FPC}
{$MODE Delphi}
{$ENDIF}

interface
{$IFDEF FPC}
uses SysUtils;
{$ELSE}
uses System.SysUtils;
{$ENDIF}

const
{$IFDEF FPC}
CLLVMLibrary = 'LLVM-10.so';
{$ELSE}
CLLVMLibrary = 'LLVM-C-10-0-0.dll';
{$ENDIF}

type
TLLVMChar = AnsiChar;
Expand Down