summaryrefslogtreecommitdiff
path: root/extras
diff options
context:
space:
mode:
authorGraeme Geldenhuys <graeme@mastermaths.co.za>2009-08-27 17:14:25 +0200
committerGraeme Geldenhuys <graeme@mastermaths.co.za>2009-08-27 17:18:19 +0200
commitd329c6c4ba6dfdc4c6e241fd4bb306bb41ab60ff (patch)
tree844ad3bca2707454423d61b2ad625ee94e03ec03 /extras
parent1dfb899821861c36e0c16938f8a15215e8491d19 (diff)
downloadfpGUI-d329c6c4ba6dfdc4c6e241fd4bb306bb41ab60ff.tar.xz
Fix 64bit compiler errors
Diffstat (limited to 'extras')
-rw-r--r--extras/tiopf/gui/tiRtfReport.pas6
-rw-r--r--extras/x11_wininfo/units/.placeholder.txt0
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