diff options
author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2009-08-27 17:14:25 +0200 |
---|---|---|
committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2009-08-27 17:18:19 +0200 |
commit | d329c6c4ba6dfdc4c6e241fd4bb306bb41ab60ff (patch) | |
tree | 844ad3bca2707454423d61b2ad625ee94e03ec03 /extras | |
parent | 1dfb899821861c36e0c16938f8a15215e8491d19 (diff) | |
download | fpGUI-d329c6c4ba6dfdc4c6e241fd4bb306bb41ab60ff.tar.xz |
Fix 64bit compiler errors
Diffstat (limited to 'extras')
-rw-r--r-- | extras/tiopf/gui/tiRtfReport.pas | 6 | ||||
-rw-r--r-- | extras/x11_wininfo/units/.placeholder.txt | 0 |
2 files changed, 3 insertions, 3 deletions
diff --git a/extras/tiopf/gui/tiRtfReport.pas b/extras/tiopf/gui/tiRtfReport.pas index 4f2d50d5..627d6d26 100644 --- a/extras/tiopf/gui/tiRtfReport.pas +++ b/extras/tiopf/gui/tiRtfReport.pas @@ -2901,7 +2901,7 @@ begin if AFieldName = '' then begin //Its a (nested) dataset Token := etDataset; - Value := integer(ADataset); + Value := PtrInt(ADataset); end else ResolveFieldValue(ADataset, AFieldName); end else begin @@ -2927,7 +2927,7 @@ begin else begin //Its a dataset or objectlist reference Token := etDataset; - Value := integer(ADataset); + Value := PtrInt(ADataset); end; end; @@ -4053,7 +4053,7 @@ begin AObject := TObject(Ptrint(AArgument.Value)); ADataset := Datasets.Add(AObject, AAliasname, true); AArgument.Token := etDataset; - AArgument.Value := integer(ADataset); + AArgument.Value := PtrInt(ADataset); end; procedure TtiRtfParser.UdfLower(AArgument: TRtfArgument); diff --git a/extras/x11_wininfo/units/.placeholder.txt b/extras/x11_wininfo/units/.placeholder.txt new file mode 100644 index 00000000..e69de29b --- /dev/null +++ b/extras/x11_wininfo/units/.placeholder.txt |